perm filename POX2.PUB[D,LES] blob sn#138069 filedate 1974-12-31 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device XGP
C00005 ENDMK
C⊗;
.device XGP;
.page frame 52 high 80 wide
.area text lines 1 to 52
.nofill; turn on "\α"; turn on "∀" for "%";

.at "\C"; ⊂ once center; ⊃;
.at "\R"; ⊂ once flush right; ⊃;
.at "\J"; ⊂ fill; adjust; compact; ⊃;
.at "\."; ⊂ nofill; ⊃;
.at "\@" filename ";";	⊂ require "filename" source;	⊃;

.at "\M0" dfont ";"	⊂ font G "dfont"; ⊃;
.at "\M1" dfont ";"	⊂ font 1 "dfont"; ⊃;
.at "\M2" dfont ";"	⊂ font 2 "dfont"; ⊃;
.at "\M3" dfont ";"	⊂ font 3 "dfont"; ⊃;
.at "\M4" dfont ";"	⊂ font 4 "dfont"; ⊃;
.at "\M5" dfont ";"	⊂ font 5 "dfont"; ⊃;
.at "\M6" dfont ";"	⊂ font 6 "dfont"; ⊃;
.at "\M7" dfont ";"	⊂ font 7 "dfont"; ⊃;
.at "\M8" dfont ";"	⊂ font 8 "dfont"; ⊃;
.at "\M9" dfont ";"	⊂ font 9 "dfont"; ⊃;
.at "\MA" dfont ";"	⊂ font A "dfont"; ⊃;
.at "\MB" dfont ";"	⊂ font B "dfont"; ⊃;
.at "\MC" dfont ";"	⊂ font C "dfont"; ⊃;
.at "\MD" dfont ";"	⊂ font D "dfont"; ⊃;
.at "\ME" dfont ";"	⊂ font E "dfont"; ⊃;
.at "\MF" dfont ";"	⊂ font F "dfont"; ⊃;

.AT "\F0";	⊂("∀G")⊃;
.AT "\F1";	⊂("∀1")⊃;
.AT "\F2";	⊂("∀2")⊃;
.AT "\F3";	⊂("∀3")⊃;
.AT "\F4";	⊂("∀4")⊃;
.AT "\F5";	⊂("∀5")⊃;
.AT "\F6";	⊂("∀6")⊃;
.AT "\F7";	⊂("∀7")⊃;
.AT "\F8";	⊂("∀8")⊃;
.AT "\F9";	⊂("∀9")⊃;
.AT "\FA";	⊂("∀A")⊃;
.AT "\FB";	⊂("∀B")⊃;
.AT "\FC";	⊂("∀C")⊃;
.AT "\FD";	⊂("∀D")⊃;
.AT "\FE";	⊂("∀E")⊃;
.AT "\FF";	⊂("∀F")⊃;

.portion main; place text;

\@NEWS75[CUR,JMC];